home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / ace102.lha / include / sort.h < prev    next >
Text File  |  1993-01-30  |  670b  |  41 lines
  1. { 
  2.   * comb sort an array of strings * 
  3.   
  4.   Author: David Benn
  5.     Date: 29th,30th March, 4th April, 22nd July 1992
  6. }
  7.  
  8. SUB max&(x&,y&)
  9.  if x&>y& then max&=x& else max&=y&
  10. END SUB
  11.  
  12. SUB sort(addr&,n&)
  13.  
  14. { - sorts up to 10000 elements
  15.     in a string array.
  16.   - addr&=address of array.
  17.   - n&=# of elements in array.
  18. } 
  19. const true=-1
  20. const false=0
  21. longint swapped,swaps
  22. single  gap
  23. dim n$(10000) address addr&
  24.  
  25. swapped=true
  26. gap=n&
  27. while swapped or gap<>1
  28.   swapped=false
  29.   gap=max&(int(gap/1.3),1)
  30.   for i=0 to n&-gap
  31.     if n$(i)>n$(i+gap) then 
  32.       temp$=n$(i)
  33.       n$(i)=n$(i+gap)
  34.       n$(i+gap)=temp$
  35.       swapped=true
  36.       ++swaps
  37.     end if
  38.   next
  39. wend
  40. END SUB
  41.